﻿Public Class clsStar
    Implements ISpaceObject

    Private m_pLocation As PointF
    Private m_dMass As Single

    Private m_sName As String
    Private m_pColor As Color

    Protected Sub New()
    End Sub
    Public Sub New(ByVal pLocation As PointF)
        m_pLocation = pLocation
    End Sub

    Public Function GetMass() As Single Implements ISpaceObject.GetMass
        Return m_dMass
    End Function

    Public Overridable Function GetCurrentPosition() As System.Drawing.PointF Implements ISpaceObject.GetCurrentPosition
        Return m_pLocation
    End Function

    Public Overridable Sub Draw(ByRef g As System.Drawing.Graphics) Implements ISpaceObject.Draw
        Dim pPos As PointF = GetCurrentPosition()
        g.DrawRectangle(Pens.White, pPos.X, pPos.Y, 0.4F, 0.4F)
    End Sub
End Class
